home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / REXX_ArgParse.lha / REXX-ArgParse / ArgParseTest.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-12-15  |  757 b   |  32 lines
  1. /******************************************************************************
  2. ** ArgParseTest
  3. ******************************************************************************/
  4.  
  5. OPTIONS RESULTS
  6.  
  7. PARSE ARG cmdline
  8.  
  9. NL = '0a'x
  10. ESC= '1b'x /* escape code */
  11.  
  12. template="ACTION/A,DRIVE/A,FILE/A,TRACKS/K,KEYTWO/K,COLSTART/N,VERBOSE/S,FORCE/S"
  13.  
  14. st=TIME('E')
  15. ap=ArgParse(template,cmdline)
  16. et=TIME('E')
  17. IF DATATYPE(ap,'W') == 1 THEN /* parsing error occured */
  18.     SIGNAL CLEANUP
  19. INTERPRET ap
  20.  
  21. ap2 = TRANSLATE(" " || ap,NL,";")
  22. say "ArgParse returned «" || esc || "[33m" || ap || esc || "[0m»"
  23. say "Executing:"
  24. say esc || "[33m" || ap2 || esc || "[0m"
  25.  
  26. CLEANUP:
  27. say
  28. say "ArgParse took " || et-st || " seconds"
  29. say "ArgParseTest took " || TIME('E')-st || " seconds"
  30. say
  31.  
  32.